home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / T / Think-Pascal-7.0.cpt / THINK Pascal Interfaces / Fonts.p < prev    next >
Encoding:
Text File  |  1991-04-03  |  1.1 KB  |  48 lines  |  [TEXT/PJMM]
  1. {    This file has been processed by The THINK Pascal Source Converter, v1.1.    }
  2.  
  3. {}
  4. {Created: Monday, January 28, 1991 at 4:48 PM}
  5. {    Fonts.p}
  6. {    Pascal Interface to the Macintosh Libraries}
  7. {}
  8. {        Copyright Apple Computer, Inc.    1985-1990}
  9. {        All rights reserved}
  10. {}
  11.  
  12.  
  13.  
  14. {    RMS    4/3/91        Modified to exclude declarations already in the THINK Pascal built-in interfaces    }
  15.  
  16.  
  17.  
  18. unit Fonts;
  19. interface
  20.     uses
  21.         Types;
  22.  
  23.     function IsOutline (numer: Point; denom: Point): BOOLEAN;
  24.     inline
  25.         $7000, $A854;
  26.     procedure SetOutlinePreferred (outlinePreferred: BOOLEAN);
  27.     inline
  28.         $7001, $A854;
  29.     function GetOutlinePreferred: BOOLEAN;
  30.     inline
  31.         $7009, $A854;
  32.     function OutlineMetrics (byteCount: INTEGER; textPtr: univ Ptr; numer: Point; denom: Point; var yMax: INTEGER; var yMin: INTEGER; awArray: FixedPtr; lsbArray: FixedPtr; boundsArray: RectPtr): OSErr;
  33.     inline
  34.         $7008, $A854;
  35.     procedure SetPreserveGlyph (preserveGlyph: BOOLEAN);
  36.     inline
  37.         $700A, $A854;
  38.     function GetPreserveGlyph: BOOLEAN;
  39.     inline
  40.         $700B, $A854;
  41.     function FlushFonts: OSErr;
  42.     inline
  43.         $700C, $A854;
  44.  
  45. implementation
  46. end.
  47.  
  48.